Dim subtotal, salestax, ordertotal
salestax = 7
subtotal = 199
ordertotal = ((subtotal / 100) * salestax) + subtotal
msgbox("---------- wyniki testowe --------" & chr(13) & "Salestax = " & salestax & chr(13) & "Ordertotal = " & ordertotal & chr(13) & "------ wyniki testowe --------")
msgbox("Kwota zamwienia wynosi (PLN)" & ordertotal)

